home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni & Inventori / Invenzioni and Inventori (Eclectica Publishing) (1996).ISO / invenzio / nome1.dir / 00033_Script_33 < prev    next >
Text File  |  1983-02-08  |  560b  |  19 lines
  1. on exitFrame
  2.   
  3.   SET THE TEXT OF CAST 15 TO "--------"  
  4.   
  5. global filexx,strada
  6. set filexx=fileio(mnew,"read",strada&the text of cast 21&".ini")
  7. if objectp(filexx) then 
  8. set the text of cast 100 to string(filexx(mReadFile))
  9.  filexx(mDispose)
  10. end if
  11.   
  12. set xxx=1
  13. repeat while xxx< (the number of lines of the text of cast 100)+1
  14. set lung=the number of chars of (line xxx of  the text of cast 100)
  15. set the text of cast 17 to the text of cast 17 & return &  chars(line xxx of  the text of cast 100,1,lung)
  16. set  xxx=xxx+1
  17. end repeat
  18.   pause
  19. end